home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / picbase / toprog.rexx < prev   
OS/2 REXX Batch file  |  1995-12-29  |  2KB  |  109 lines
  1. /* Bild aus Clipart/PicBase an externes Programm übergeben */
  2.  
  3. ARG bild
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS DataBase
  8. Request "PGS_3|_PPaint|_DPaint|_FinalWriter|_Clipboard|_Abbruch" "Bild an welches Programm übergeben ?"
  9. req = RC
  10. IF req = 0 THEN EXIT
  11. Message "Bild wird übergeben ..."
  12.  
  13. /* PageStream 3 */
  14. IF req = 1 THEN DO
  15.   pos = LastPos(".",bild)
  16.   IF pos > 0 THEN DO
  17.     filter = "FILTER "
  18.     ext = SubStr(bild,pos+1,Length(bild)-pos)
  19.     SELECT
  20.       WHEN ext = "IFF" THEN
  21.         filter = filter || "IFFILBM"
  22.       WHEN ext = "GIF" THEN
  23.         filter = filter || "GIF"
  24.       WHEN ext = "PCX" THEN
  25.         filter = filter || "PCX"
  26.       WHEN ext = "BMP" THEN
  27.         filter = filter || "BMP"
  28.       WHEN ext = "TIF" THEN
  29.         filter = filter || "TIFF"
  30.       WHEN ext = "JPG" THEN
  31.         filter = filter || "JPEG"
  32.       OTHERWISE
  33.         filter = ""
  34.       END
  35.     END
  36.   ELSE
  37.     filter = ""
  38.  
  39.   ADDRESS 'PAGESTREAM'
  40.  
  41.   PlaceGraphic FILE bild filter STATUS
  42.   IF RC ~= 0 THEN
  43.     ADDRESS DataBase Message "Bild kann nicht an PGS3 übergeben werden"
  44.   ELSE
  45.     ADDRESS DataBase Message "Bild an PGS3 übergeben"
  46. END
  47.  
  48. /* PPaint 6.4 */
  49. IF req = 2 THEN DO
  50.   Request "_Bild|_Pinsel|_Abbruch" "Als was soll das Bild geladen werden ?"
  51.   req2 = RC
  52.   IF RC = 0 THEN EXIT
  53.  
  54.   MYPORT = 'PPAINT'
  55.  
  56.   IF ~SHOW('P', MYPORT) THEN DO
  57.     IF EXISTS('PPaint:PPaint') THEN DO
  58.       ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  59.       DO 30 WHILE ~SHOW('P',MYPORT)
  60.         ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  61.       END
  62.       END
  63.     ELSE DO
  64.       EXIT
  65.     END
  66.   END
  67.  
  68.   IF ~SHOW('P', MYPORT) THEN EXIT
  69.  
  70.   ADDRESS VALUE MYPORT
  71.  
  72.   Version 'REXX'
  73.   IF RESULT < 2 THEN DO
  74.      errmess = 'Ihr PPaint ist zu alt !'
  75.      ADDRESS DataBase Message errmess
  76.      EXIT
  77.   END
  78.  
  79.   LockGUI
  80.   IF req2 = 1 THEN
  81.     LoadImage bild
  82.   ELSE
  83.     LoadBrush bild
  84.   UnlockGUI
  85.   ScreenToFront
  86.   ADDRESS DataBase Message "Bild an PPaint übergeben"
  87.  
  88. END
  89.  
  90. /* DPaint V */
  91. IF req = 3 THEN DO
  92.   Request "_Ok" "Leider z.Zt. noch nicht verfügbar"
  93. END
  94.  
  95. /* FinalWriter */
  96. IF req = 4 THEN DO
  97.   ADDRESS FINALW.1
  98.   InsertImage bild /* POSITION 1 1 1 6 6 */ /* Page, Left, Top, Width, Height */
  99.   ScreenToFront
  100.   ADDRESS DataBase Message "Bild an FinalWriter übergeben"
  101. END
  102.  
  103. /* Clipboard */
  104. IF req = 5 THEN DO
  105.   CopyToClip bild
  106.   Message "Bildname ins Clipboard kopiert"
  107. END
  108.  
  109.